(*$S- *)
DEFINITION MODULE VGA;

FROM SYSTEM IMPORT ADDRESS;
FROM GEM    IMPORT STRING;

PROCEDURE CopyVideo2Buffer(buffer  : ADDRESS;
                           x,y,w,h : CARDINAL);
PROCEDURE CopyBuffer2Video(buffer  : ADDRESS;
                           x,y,w,h : CARDINAL);

PROCEDURE ClearVideo(x,y,w,h : CARDINAL);

PROCEDURE CheckVGA() : BOOLEAN;

PROCEDURE SetRGB(c,r,g,b : CARDINAL);

PROCEDURE PutChar(farbe,x,y : CARDINAL; zeichen : CHAR);
PROCEDURE PutText(farbe,x,y : CARDINAL; text : STRING);

PROCEDURE SetPixel(farbe,x,y : CARDINAL);
PROCEDURE DrawX(farbe,x,y,xw : CARDINAL);
PROCEDURE DrawY(farbe,x,y,yw : CARDINAL);
PROCEDURE DrawBorder(fp,bp,x,y,w,h : CARDINAL);

END VGA.
